home *** CD-ROM | disk | FTP | other *** search
/ SVM Mac CD-ROM 59 / SVM Mac CD-ROM - No 59.iso / Wanadoo / Media / PresentL.dxr / Internal_145_Case.ls < prev    next >
Encoding:
Text File  |  2000-01-18  |  2.8 KB  |  106 lines
  1. property pPiste0, pPiste1, pTH1, pTV1, pPiste2, pTH2, pTV2, pMemb0, pMemb1, pMemb2, pAnim0, pAnim1
  2.  
  3. on mouseEnter me
  4.   global gCast08
  5.   set pPiste0 to the currentSpriteNum
  6.   if pPiste0 <> VOID then
  7.     set pPiste1 to pPiste0 + 1
  8.     set pTH1 to the locH of sprite pPiste1
  9.     set pTV1 to the locV of sprite pPiste1
  10.     set pPiste2 to pPiste0 + 2
  11.     set pTH2 to the locH of sprite pPiste2
  12.     set pTV2 to the locV of sprite pPiste2
  13.     case pPiste0 of
  14.       48:
  15.         set pMemb0 to "caseJaune8b0"
  16.         set pMemb1 to "caseJaune8b1"
  17.         set pMemb2 to "caseJaune8b2"
  18.         set pAnim0 to "AnimJaune0"
  19.         set pAnim1 to "AnimJaune1"
  20.       52:
  21.         set pMemb0 to "caseRose8b0"
  22.         set pMemb1 to "caseRose8b1"
  23.         set pMemb2 to "caseRose8b2"
  24.         set pAnim0 to "AnimRose0"
  25.         set pAnim1 to "AnimRose1"
  26.       56:
  27.         set pMemb0 to "caseCiel0"
  28.         set pMemb1 to "caseCiel1"
  29.         set pMemb2 to "caseCiel2"
  30.         set pAnim0 to "AnimCiel0"
  31.         set pAnim1 to "AnimCiel1"
  32.       otherwise:
  33.         set pMemb0 to "caseBleu0"
  34.         set pMemb1 to "caseBleu1"
  35.         set pMemb2 to "caseBleu2"
  36.         set pAnim0 to "AnimBleu0"
  37.         set pAnim1 to "AnimBleu1"
  38.     end case
  39.     set the member of sprite pPiste0 to pMemb1
  40.     set the member of sprite pPiste1 to pAnim1
  41.     set the loc of sprite pPiste1 to point(pTH1 - 1, pTV1 - 1)
  42.     set the loc of sprite pPiste2 to point(pTH2 - 1, pTV2 - 1)
  43.     cursor(280)
  44.   end if
  45. end
  46.  
  47. on mouseDown me
  48.   if pPiste0 <> VOID then
  49.     set the member of sprite pPiste0 to pMemb2
  50.     set the loc of sprite pPiste1 to point(pTH1, pTV1)
  51.     set the loc of sprite pPiste2 to point(pTH2, pTV2)
  52.     cursor(290)
  53.     case the name of member the memberNum of sprite pPiste2 of
  54.       "texteBleu1":
  55.         cursor(-1)
  56.         go("case1")
  57.       "texteBleu2":
  58.         cursor(-1)
  59.         go("Case2")
  60.       "texteBleu3":
  61.         cursor(-1)
  62.         go("Case3")
  63.       "texteBleu4":
  64.         cursor(-1)
  65.         go("Case4")
  66.       "texteBleu5":
  67.         cursor(-1)
  68.         go("Case5")
  69.       "texteBleu6":
  70.         cursor(-1)
  71.         go("Case6")
  72.       "texteBleu7":
  73.         cursor(-1)
  74.         go("case7")
  75.       "texteJaune":
  76.         cursor(-1)
  77.         go("Jaune")
  78.       "texteRose":
  79.         cursor(-1)
  80.         go("Rose")
  81.       "texteCiel":
  82.         cursor(-1)
  83.         go("Bleu")
  84.     end case
  85.   end if
  86. end
  87.  
  88. on mouseUp me
  89.   if pPiste0 <> VOID then
  90.     set the member of sprite pPiste0 to pMemb1
  91.     set the loc of sprite pPiste1 to point(pTH1 - 1, pTV1 - 1)
  92.     set the loc of sprite pPiste2 to point(pTH2 - 1, pTV2 - 1)
  93.     cursor(280)
  94.   end if
  95. end
  96.  
  97. on mouseLeave me
  98.   if pPiste0 <> VOID then
  99.     set the member of sprite pPiste0 to pMemb0
  100.     set the member of sprite pPiste1 to pAnim0
  101.     set the loc of sprite pPiste1 to point(pTH1, pTV1)
  102.     set the loc of sprite pPiste2 to point(pTH2, pTV2)
  103.     cursor(-1)
  104.   end if
  105. end
  106.